﻿Module libreria
    Public Declare Auto Function leer Lib "inpout32.dll" _
        Alias "Inp32" (ByVal puerto As Integer) As Integer
    Public Declare Auto Function escribir Lib "inpout32.dll" _
        Alias "Out32" (ByVal puerto As Integer, ByVal bit As Byte) As Integer
    Sub prueba()
        leer(1)
        escribir(&H378, 1)
    End Sub
End Module
